*> 100 Cool Things - http://cobolrocks.codeplex.com/
*> Copyright (c) 2004-2008
*> by Emerson Lopes (emersonlopes@gmail.com)
*>
*> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
*> documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
*> the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
*> to permit persons to whom the Software is furnished to do so, subject to the following conditions:
*>
*> The above copyright notice and this permission notice shall be included in all copies or substantial portions 
*> of the Software.
*>
*> THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
*> TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
*> THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
*> CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
*> DEALINGS IN THE SOFTWARE.
        program-id. MAIN as "ConsoleApplication1.Main".
        environment division.
            configuration section.
                repository.
               class Singleton as "CoolThings.Singleton".
            
        data division.
            working-storage section.
            01 instanceOfSingleton1 usage object reference Singleton. 
            01 instanceOfSingleton2 usage object reference Singleton. 
        
        procedure division.
            invoke Singleton "GetInstance" returning instanceOfSingleton1.  
            invoke Singleton "GetInstance" returning instanceOfSingleton2.  
          
            display instanceOfSingleton1::"GetCounter".
            display instanceOfSingleton2::"GetCounter".
          
        end program MAIN.
